aes

Construct aesthetic mappings by converting into ggplotly

p <-  ggplot(mpg, aes(displ, hwy)) + geom_point()

plotly::ggplotly(p)

p <-  ggplot(mpg) + geom_point(aes(displ, hwy))

plotly::ggplotly(p)

scatter_by <- function(data, ...) {
  ggplot(data) + geom_point(aes(...))
}
p <-  scatter_by(mtcars, disp, drat)

plotly::ggplotly(p)

scatter_by <- function(data, x, y) {
  x <- enquo(x)
  y <- enquo(y)

  ggplot(data) + geom_point(aes(!!x, !!y))
}
p <-  scatter_by(mtcars, disp, drat)

plotly::ggplotly(p)

cut3 <- function(x) cut_number(x, 3)
p <-  scatter_by(mtcars, cut3(disp), drat)

plotly::ggplotly(p)